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boolean CheckForlsolation(int centralThought, int targetThought) 



// this function checks if centralThought is related to targetThought 
// via any of targetThought's relations (not directly) 

// remove centralThought as a direct relation from targetThought 
RemoveRelation(targetThought, centralThought); 

// create an empty thought list to keep track of the search 
intList searchList = CreateEmptyList(); 

// start recursive searches on each of targetThought's direct relations 
int relation = GetFirstRelation(targetThought); 
boolean found; 
do{ 

found = Search(relation, centralThought, searchList); 
if(found) { 

// centralThought was found, no need to search any further 
break; 

1 

// this loop will end when there are no more relations 
} while(relation = GetNextRelation(targetThought); 

// add centralThought back onto target as a relation 
AddRe!ation(targetThought, centralThought); 

return found; 




boolean Search(source, dest, searchList) 



if(Find(source, searchList)) { 

// source has already been searched 
return FALSE; 



// add source to the searchList 
Add(source, searchList) 

if(source == dest) { 

// this is the destination, we have found it 
return TRUE; 



// recursive searches on each of sources direct relations 
int relation = GetFirstRelation(source); 
boolean found; 
do { 

found = Search(relation, dest, searchList); 
if(found) { 



// centralThought was found, no need to search any further 
break; 



//this loop will end when there are no more relations 
} while(relation = GetNextRelation(targetThought); 

return found; 
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There are very few applications that are useful to almost everyone. Actually, there 
is currently only one: the word processor. 






The Brain will be a universally appealing application. It will be one of the most 
significant new technologies in decades. The first only thought processor. Software 
that does for thoughts what the word processor does for words. 






The Brain approaches the computer as a computer, not as a glorified 
typewriter.calculator, filing cabinet, or day-book. Not surprisingly, the basis of 
most productivity applications are concepts from the pre-computer age. By starting 
with mundane, non-revolutionary task metaphors, these applications are all 
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.brn file 



header information 

signature 
version 
thought size 
number of thoughts 
active thought number 



Preference Information 

signature 
color preferences 
speeds times 
locations 

other preferences 



thought data 



thought 1 

number 

children 
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jumps 
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thought 2 
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ForgetThought (fNum) 

{ 

// mark all the children of the selected thought 

list .Clear () ; 

MarkChildren (fNum, list) ; 

// unmark the actxve thought 

list .RemoveThought (activeThought) ; 

// unmark thoughts with unmarked parents 

INum = list .GetFirstNum () ; 

while (INum !=0) 

{ 

if (INum != fNum) // don't unmark the selected thought 

pNum = GetFirstThoughtParent (INum) ; 

while (pNum != 0) 

{ 

if (list .Contains (pNum) « FALSE) 

{ 

if (IsThoughtlnLongTermMemory (pNum) *- FALSE) 

{ 

// unmark all the children of the unmarked parent 
childList .Clear {) ; 



MarkChildren (pNum, childList) ; 
list .RemoveList (childList) ; 

} 

) 

pNum = GetNextThoughtParent (INum) ; 

} 

1 

INum - list .GetNextNumO ; 

) 

// now forget all the thoughts left on the list 
INum = list. GetFirstNum () ; 
while (INum != 0) 

{ 

ForgetThought (INum) ; 
INum = list. GetNextNumO ; 

} 

) 

RememberThought (rNum) 

( 

// mark all the children of the selected thought 
list .Clear () ; 
MarkChildren (rNum, list) ; 
// remember all the thoughts on the list 
INum = list .GetFirstNum () ; 
while {INum !- 0) 
{ 

RememberThought (INum) ; 
INum « list .GetNextNumO ; 

} 

} 

MarkChildren (num, list) 
{ 

list .AddThought (num) ; 
cNum = GetFirstChild (num) ; 
while (cNum !- 0) 

{ 

MarkChildren (cNum, list) ; 
cNum ■ GetNextChild (num) ; 
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Algorithm for drawing the plex with distant thoughts 

I . Create a list of thoughts to be drawn and their screen locations: 

2. Add the central thought to the list. 

3. Add children to the list. 

4. Add parents to the list. 

5. Add jumps to the list. 

6. Add siblings to the list, checking first that they 

are not already on the list. 

7. Add distants of children to the list, checking first that they 

are not already on the list. 

8. Add distants of parents to the list, checking first that they 

are not already on the list. 

9. Add distants of jumps to the list, checking first that they 

are not already on the list. 

1 0. Add distants of siblings to the list, checking first that 

they are not already on the list. 

I I . Draw the lines that connect each thought: 
1 2. For each item in the list: 

1 3. Get each item in the list: 

14. If the two items are related, draw lines 

between them from and to the appropriate 
gates. 

1 5. Draw the distant thoughts: 

1 6. For each item in the list: 

1 7. If it is a distant thought, draw it. 

1 8. Draw the other thoughts: 

1 9. For each item in the list: 

20. If it is not a distant thought, draw it. 
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/ / the non recursive method for searching thoughts 

// tries to find a route from nSxc to nDest other than a direct relation 

// returns TRUE if found 

boolean Search (int nSrc, int nDest) 

{ 

//create the lists 

ThoughtList posList; //list of thoughts that possibly connect 
ThoughtList notList; //list of thoughts that do not connect 
//empty the lists 
posList .Initialize 0 ; 
notList . Initialize < ) ; 

//add the source to the not list since we cannot go directly 
to the destination, 
notList .Add (nSrc) ; 

//since we cannot go directly to the destination, 

//add all relates except the destination to the possible list 

Thought src(nSrc); 

for (int n - 0; ;n++) 

{ 

int nRel - src . GetRelate (n) ; 

if (inRel) 

I 

//no more relations, done 
break; 

1 

if {nRel != nDest) 
{ 

//add it to the possibly connect list 
posList .Add (nRel) ; 

} 

} 

while (TRUE) 
{ 

//check the first possibility 
int nTest = posList . GetFirst 0 ; 
if (! nTest) 

( 

//nothing on the list, done 
break; 

} 

Thought test (nTest) ; 

if (test.IsRelated (nDest) ) 

{ 

//this one is related to the destination, we're done 
return TRUE; 

} 

// does not connect, add it to the does not connect list 
notList .Add (nTest) ; 

// add all related thoughts except those already checked to 
possible list for 
(int n = 0;; n++) 

{ 

int nRel * test . GetRelate (n) ; 

if (InRel) 

{ 

//no more relations, done 
break; 

) 

if (! notList .Exists (nRel) ) 
{ 

//not checked yet, add to possible list 
posList.Add(rel) ; 

} 

} 

//remove this one from the possible list 
posList . Remove (nTest) ; 

//we've checked everything there is no other way to get from 
nSrc to nDest 
return FALSE; 

Fig. 24 
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Figure 63 — Fully Connected Brain: Modifying an Item, No Conflict 
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Fully Connected Brain - Modifying an Item - Conflicts Found 
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